home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / rmqb01.zip / WRITEDEF.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-11-06  |  564 b   |  32 lines
  1. '                            WriteDef.bas
  2. '
  3. ' Purpose : Creates a DEF file
  4. ' Compiler: QuickBASIC 4.5
  5. ' Date    : Nov 4, 1991
  6.  
  7.  
  8. DEFINT A-Z
  9. x = 0
  10. y = 0
  11. x2 = 49
  12. y2 = 49
  13.  
  14. SCREEN 7     '320X200X16
  15.  
  16. LINE (0, 0)-(49, 49), 5, B
  17. LINE (10, 10)-(39, 39), 6, BF
  18.  
  19. OPEN "sample.def" FOR OUTPUT AS #1  'Creates a file called Sample.def
  20. FOR j = y TO y2                     'in the current directory.
  21.   FOR i = x TO x2
  22.     col = POINT(i, j)
  23.     c$ = HEX$(col)
  24.     PRINT #1, c$;
  25.   NEXT i
  26.   PRINT #1, CHR$(13);
  27.   PRINT #1, CHR$(10);
  28. NEXT j
  29. CLOSE #1
  30.  
  31.  
  32.